home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-2.iso / extra_2 / nadir11.zip / INVMENU.N < prev    next >
Text File  |  1995-11-08  |  3KB  |  64 lines
  1. Eval {
  2.     mdat^menu^inv^[50] = "InvPrep";
  3.     mdat^menu^inv^[51] = "ClientMaint";
  4.     mdat^menu^inv^[52] = "InvSummary";
  5.     mdat^menu^inv^[53] = "InvRepMonth";
  6.     mdat^menu^inv^[54] = "InvRepStat";
  7.     mdat^menu^inv^[55] = "MenuUte";
  8.     mdat^menu^inv^[56] = "InvKeyRebuild";
  9.     mdat^menu^inv^[57] = "InvRemove";
  10.     mdat^menu^inv^[58] = "PrinterSetup";
  11.     mdat^menu^inv^[58]^arg1 = "inv";
  12.     mdat^menu^inv^[58]^arg2 = "Invoice Printing";
  13.     mdat^menu^inv^[59] = "PrinterSetup";
  14.     mdat^menu^inv^[61] = "DosBackupRestore";
  15.     mdat^menu^inv^[61]^arg1 = "b";
  16.     mdat^menu^inv^[62] = "DosBackupRestore";
  17.     mdat^menu^inv^[62]^arg1 = "r";
  18.     mdat^menu^inv^[63] = "System";
  19.     mdat^menu^inv^[64] = "MtceInvParm";
  20.     mdat^menu^inv^[65] = "PtypMaint";
  21.     mdat^menu^inv^[66] = "VtypMaint";
  22. }
  23. Define InvMenu()
  24. {
  25.     if (!univ^spar^invfname)
  26.         univ^spar^invfname = "inv.dat";
  27.     
  28.     if (SymOpen("data", univ^spar^invfname) && 
  29.         SymCreate("data", univ^spar^invfname))
  30.             MsgWait(univ^spar^coname, 
  31.                     "Cannot open or create " . univ^spar^invfname);
  32.  
  33.     scr = SdCreate("InvMenu", -1, -1, 10, 60, univ^spar^coname);
  34.     SdMenu(scr, "main", 1, "Invoice",       "i", 50,
  35.                         1, "Maintenance",   "m", 20,
  36.                         1, "Reports",       "r", 21,
  37.                         1, "Utilities",     "u", 22,
  38.                         1, "Help",          "h", 4);
  39.  
  40.     SdPopup(scr, "mtce", 20, 1, "Client",               "c", 51,
  41.                              1, "Property Type",        "p", 65,
  42.                              1, "Valuation Type",       "v", 66);
  43.     SdPopup(scr, "rep",  21, 1, "Invoice Summary",      "n", 52,
  44.                              1, "Monthly Report",       "m", 53,
  45.                              1, "Statistics Report",    "s", 54);
  46.     SdPopup(scr, "ute",  22, 1, "Invoice Parameters",   "i", 64,
  47.                              1, "Printer Setup",        "p", 59,
  48.                              1, "Invoice Utilities",    "u", 23,
  49.             SysType() == "DOS", "Backup Files",         "b", 61,
  50.             SysType() == "DOS", "Restore Files",        "r", 62,
  51.                              1, "DOS Shell",            "d", 63);
  52.     SdPopup(scr, "iute", 23, 1, "Printer Setup",        "p", 58,
  53.                              1, "Key Rebuild",          "k", 56,
  54.                              1, "Removal",              "r", 57);
  55.  
  56.     while ((cmd = SdEdit(scr)) > 3) {
  57.         [mdat^menu^inv^[cmd]](mdat^menu^inv^[cmd]^arg1, 
  58.                               mdat^menu^inv^[cmd]^arg2);
  59.     }
  60.     SdDestroy(scr);
  61.     SymClose("data");
  62. }
  63.  
  64.